home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / shazam.exe / ADEMO6.VIR < prev    next >
Text File  |  1992-09-01  |  964b  |  34 lines
  1.    {===================================================================
  2.  
  3.    Activate BUFFERS unit for heap memory management
  4.  
  5.    ===================================================================}
  6. procedure TGenericApp.PreInit ;
  7. begin
  8.    GENERAL.ReserveForData ( 32 * ( 1024 div 16 ) ) ;
  9.    InitBuffers ;
  10.    EDITORS.EditorDialog      := EditorDialog ;                { *.INC }
  11. end ;
  12.    {===================================================================
  13.  
  14.    COMMAND SET
  15.  
  16.    ===================================================================}
  17. CONST
  18.    EdCommandSet              : TCommandSet =
  19.    [
  20.    cmSave ,
  21.    cmFind ,
  22.    cmReplace ,
  23.    cmSearchAgain
  24.    ] ;
  25.    {===================================================================
  26.  
  27.    Disable menu commands
  28.  
  29.    ===================================================================}
  30. procedure TGenericApp.PostInit ;
  31. begin
  32.    Application^.DisableCommands ( EdCommandSet ) ;
  33. end ;
  34.